/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / prim / objects.elc.z / objects.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 54 68 75 20 4a | 61 6e 20 32 32 20 31 34 |on Thu J|an 22 14|
|00000040| 3a 34 36 3a 32 38 20 31 | 39 39 38 0a 3b 3b 3b 20 |:46:28 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 78 65 | 6d 61 63 73 2d 32 30 2e |emacs/xe|macs-20.|
|00000090| 33 2f 6c 69 73 70 2f 70 | 72 69 6d 2f 6f 62 6a 65 |3/lisp/p|rim/obje|
|000000a0| 63 74 73 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |cts.el.;|;; emacs|
|000000b0| 20 76 65 72 73 69 6f 6e | 20 32 30 2e 33 20 22 56 | version| 20.3 "V|
|000000c0| 61 74 69 63 61 6e 20 43 | 69 74 79 22 20 58 45 6d |atican C|ity" XEm|
|000000d0| 61 63 73 20 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |acs  Luc|id..;;; |
|000000e0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000f0| 20 32 2e 32 35 20 58 45 | 6d 61 63 73 3b 20 32 32 | 2.25 XE|macs; 22|
|00000100| 2d 4d 61 72 2d 39 36 2e | 0a 3b 3b 3b 20 6f 70 74 |-Mar-96.|.;;; opt|
|00000110| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000120| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000130| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000140| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000150| 6e 20 45 6d 61 63 73 20 | 31 39 2e 0a 0a 28 69 66 |n Emacs |19...(if|
|00000160| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000180| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000190| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|000001a0| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|000001b0| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|000001c0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001d0| 69 6f 6e 20 22 32 30 22 | 29 29 29 0a 20 20 20 20 |ion "20"|))).    |
|000001e0| 28 65 72 72 6f 72 20 22 | 60 6f 62 6a 65 63 74 73 |(error "|`objects|
|000001f0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|00000200| 64 20 66 6f 72 20 45 6d | 61 63 73 20 32 30 22 29 |d for Em|acs 20")|
|00000210| 29 0a 0a 28 6f 72 20 28 | 62 6f 75 6e 64 70 20 27 |)..(or (|boundp '|
|00000220| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000230| 74 29 20 28 73 65 74 71 | 20 63 75 72 72 65 6e 74 |t) (setq| current|
|00000240| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 6e 69 6c 29 29 |-load-li|st nil))|
|00000250| 0a 0a 0a 28 64 65 66 61 | 6c 69 61 73 20 27 77 73 |...(defa|lias 'ws|
|00000260| 2d 6f 62 6a 65 63 74 2d | 70 72 6f 70 65 72 74 79 |-object-|property|
|00000270| 2d 31 20 23 5b 28 66 75 | 6e 63 74 69 6f 6e 20 6f |-1 #[(fu|nction o|
|00000280| 62 6a 65 63 74 20 64 6f | 6d 61 69 6e 20 26 6f 70 |bject do|main &op|
|00000290| 74 69 6f 6e 61 6c 20 6d | 61 74 63 68 73 70 65 63 |tional m|atchspec|
|000002a0| 29 20 22 08 ab 87 c1 5c | 6e 08 0b 23 aa 84 c4 5c |) "....\|n..#...\|
|000002b0| 6e 0b 5c 22 89 1d ad 84 | 0e 06 0d 21 29 87 22 20 |n.\"....|...!)." |
|000002c0| 5b 6d 61 74 63 68 73 70 | 65 63 20 73 70 65 63 69 |[matchsp|ec speci|
|000002d0| 66 69 65 72 2d 6d 61 74 | 63 68 69 6e 67 2d 69 6e |fier-mat|ching-in|
|000002e0| 73 74 61 6e 63 65 20 6f | 62 6a 65 63 74 20 64 6f |stance o|bject do|
|000002f0| 6d 61 69 6e 20 73 70 65 | 63 69 66 69 65 72 2d 69 |main spe|cifier-i|
|00000300| 6e 73 74 61 6e 63 65 20 | 69 6e 73 74 61 6e 63 65 |nstance |instance|
|00000310| 20 66 75 6e 63 74 69 6f | 6e 5d 20 35 5d 29 0a 23 | functio|n] 5]).#|
|00000320| 40 32 39 34 20 43 72 65 | 61 74 65 20 61 20 6e 65 |@294 Cre|ate a ne|
|00000330| 77 20 60 66 6f 6e 74 27 | 20 73 70 65 63 69 66 69 |w `font'| specifi|
|00000340| 65 72 20 6f 62 6a 65 63 | 74 20 77 69 74 68 20 74 |er objec|t with t|
|00000350| 68 65 20 67 69 76 65 6e | 20 73 70 65 63 69 66 69 |he given| specifi|
|00000360| 63 61 74 69 6f 6e 20 6c | 69 73 74 2e 0a 53 50 45 |cation l|ist..SPE|
|00000370| 43 2d 4c 49 53 54 20 63 | 61 6e 20 62 65 20 61 20 |C-LIST c|an be a |
|00000380| 6c 69 73 74 20 6f 66 20 | 73 70 65 63 69 66 69 63 |list of |specific|
|00000390| 61 74 69 6f 6e 73 20 28 | 65 61 63 68 20 6f 66 20 |ations (|each of |
|000003a0| 77 68 69 63 68 20 69 73 | 20 61 20 63 6f 6e 73 20 |which is| a cons |
|000003b0| 6f 66 20 61 0a 6c 6f 63 | 61 6c 65 20 61 6e 64 20 |of a.loc|ale and |
|000003c0| 61 20 6c 69 73 74 20 6f | 66 20 69 6e 73 74 61 6e |a list o|f instan|
|000003d0| 74 69 61 74 6f 72 73 29 | 2c 20 61 20 73 69 6e 67 |tiators)|, a sing|
|000003e0| 6c 65 20 69 6e 73 74 61 | 6e 74 69 61 74 6f 72 2c |le insta|ntiator,|
|000003f0| 20 6f 72 20 61 20 6c 69 | 73 74 0a 6f 66 20 69 6e | or a li|st.of in|
|00000400| 73 74 61 6e 74 69 61 74 | 6f 72 73 2e 20 20 53 65 |stantiat|ors.  Se|
|00000410| 65 20 60 6d 61 6b 65 2d | 73 70 65 63 69 66 69 65 |e `make-|specifie|
|00000420| 72 27 20 66 6f 72 20 6d | 6f 72 65 20 69 6e 66 6f |r' for m|ore info|
|00000430| 72 6d 61 74 69 6f 6e 20 | 61 62 6f 75 74 0a 73 70 |rmation |about.sp|
|00000440| 65 63 69 66 69 65 72 73 | 2e 1f 0a 28 64 65 66 61 |ecifiers|...(defa|
|00000450| 6c 69 61 73 20 27 6d 61 | 6b 65 2d 66 6f 6e 74 2d |lias 'ma|ke-font-|
|00000460| 73 70 65 63 69 66 69 65 | 72 20 23 5b 28 73 70 65 |specifie|r #[(spe|
|00000470| 63 2d 6c 69 73 74 29 20 | 22 c0 c1 5c 6e 5c 22 87 |c-list) |"..\n\".|
|00000480| 22 20 5b 6d 61 6b 65 2d | 73 70 65 63 69 66 69 65 |" [make-|specifie|
|00000490| 72 2d 61 6e 64 2d 69 6e | 69 74 20 66 6f 6e 74 20 |r-and-in|it font |
|000004a0| 73 70 65 63 2d 6c 69 73 | 74 5d 20 33 20 28 23 24 |spec-lis|t] 3 (#$|
|000004b0| 20 2e 20 38 30 35 29 5d | 29 0a 23 40 33 34 31 20 | . 805)]|).#@341 |
|000004c0| 52 65 74 75 72 6e 20 74 | 68 65 20 6e 61 6d 65 20 |Return t|he name |
|000004d0| 6f 66 20 74 68 65 20 46 | 4f 4e 54 20 69 6e 20 74 |of the F|ONT in t|
|000004e0| 68 65 20 73 70 65 63 69 | 66 69 65 64 20 44 4f 4d |he speci|fied DOM|
|000004f0| 41 49 4e 2c 20 69 66 20 | 61 6e 79 2e 0a 46 4f 4e |AIN, if |any..FON|
|00000500| 54 20 73 68 6f 75 6c 64 | 20 62 65 20 61 20 66 6f |T should| be a fo|
|00000510| 6e 74 20 73 70 65 63 69 | 66 69 65 72 20 6f 62 6a |nt speci|fier obj|
|00000520| 65 63 74 20 61 6e 64 20 | 44 4f 4d 41 49 4e 20 69 |ect and |DOMAIN i|
|00000530| 73 20 6e 6f 72 6d 61 6c | 6c 79 20 61 20 77 69 6e |s normal|ly a win|
|00000540| 64 6f 77 0a 61 6e 64 20 | 64 65 66 61 75 6c 74 73 |dow.and |defaults|
|00000550| 20 74 6f 20 74 68 65 20 | 73 65 6c 65 63 74 65 64 | to the |selected|
|00000560| 20 77 69 6e 64 6f 77 20 | 69 66 20 6f 6d 69 74 74 | window |if omitt|
|00000570| 65 64 2e 20 20 54 68 69 | 73 20 69 73 20 65 71 75 |ed.  Thi|s is equ|
|00000580| 69 76 61 6c 65 6e 74 0a | 74 6f 20 75 73 69 6e 67 |ivalent.|to using|
|00000590| 20 60 73 70 65 63 69 66 | 69 65 72 2d 69 6e 73 74 | `specif|ier-inst|
|000005a0| 61 6e 63 65 27 20 61 6e | 64 20 61 70 70 6c 79 69 |ance' an|d applyi|
|000005b0| 6e 67 20 60 66 6f 6e 74 | 2d 69 6e 73 74 61 6e 63 |ng `font|-instanc|
|000005c0| 65 2d 6e 61 6d 65 27 20 | 74 6f 0a 74 68 65 20 72 |e-name' |to.the r|
|000005d0| 65 73 75 6c 74 2e 20 20 | 53 65 65 20 60 6d 61 6b |esult.  |See `mak|
|000005e0| 65 2d 73 70 65 63 69 66 | 69 65 72 27 20 66 6f 72 |e-specif|ier' for|
|000005f0| 20 6d 6f 72 65 20 69 6e | 66 6f 72 6d 61 74 69 6f | more in|formatio|
|00000600| 6e 20 61 62 6f 75 74 20 | 73 70 65 63 69 66 69 65 |n about |specifie|
|00000610| 72 73 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |rs...(de|falias '|
|00000620| 66 6f 6e 74 2d 6e 61 6d | 65 20 23 5b 28 66 6f 6e |font-nam|e #[(fon|
|00000630| 74 20 26 6f 70 74 69 6f | 6e 61 6c 20 64 6f 6d 61 |t &optio|nal doma|
|00000640| 69 6e 20 63 68 61 72 73 | 65 74 29 20 22 c0 c1 5c |in chars|et) "..\|
|00000650| 6e 0b 0c 24 87 22 20 5b | 77 73 2d 6f 62 6a 65 63 |n..$." [|ws-objec|
|00000660| 74 2d 70 72 6f 70 65 72 | 74 79 2d 31 20 66 6f 6e |t-proper|ty-1 fon|
|00000670| 74 2d 69 6e 73 74 61 6e | 63 65 2d 6e 61 6d 65 20 |t-instan|ce-name |
|00000680| 66 6f 6e 74 20 64 6f 6d | 61 69 6e 20 63 68 61 72 |font dom|ain char|
|00000690| 73 65 74 5d 20 35 20 28 | 23 24 20 2e 20 31 32 31 |set] 5 (|#$ . 121|
|000006a0| 36 29 5d 29 0a 23 40 33 | 34 35 20 52 65 74 75 72 |6)]).#@3|45 Retur|
|000006b0| 6e 20 74 68 65 20 61 73 | 63 65 6e 74 20 6f 66 20 |n the as|cent of |
|000006c0| 74 68 65 20 46 4f 4e 54 | 20 69 6e 20 74 68 65 20 |the FONT| in the |
|000006d0| 73 70 65 63 69 66 69 65 | 64 20 44 4f 4d 41 49 4e |specifie|d DOMAIN|
|000006e0| 2c 20 69 66 20 61 6e 79 | 2e 0a 46 4f 4e 54 20 73 |, if any|..FONT s|
|000006f0| 68 6f 75 6c 64 20 62 65 | 20 61 20 66 6f 6e 74 20 |hould be| a font |
|00000700| 73 70 65 63 69 66 69 65 | 72 20 6f 62 6a 65 63 74 |specifie|r object|
|00000710| 20 61 6e 64 20 44 4f 4d | 41 49 4e 20 69 73 20 6e | and DOM|AIN is n|
|00000720| 6f 72 6d 61 6c 6c 79 20 | 61 20 77 69 6e 64 6f 77 |ormally |a window|
|00000730| 0a 61 6e 64 20 64 65 66 | 61 75 6c 74 73 20 74 6f |.and def|aults to|
|00000740| 20 74 68 65 20 73 65 6c | 65 63 74 65 64 20 77 69 | the sel|ected wi|
|00000750| 6e 64 6f 77 20 69 66 20 | 6f 6d 69 74 74 65 64 2e |ndow if |omitted.|
|00000760| 20 20 54 68 69 73 20 69 | 73 20 65 71 75 69 76 61 |  This i|s equiva|
|00000770| 6c 65 6e 74 0a 74 6f 20 | 75 73 69 6e 67 20 60 73 |lent.to |using `s|
|00000780| 70 65 63 69 66 69 65 72 | 2d 69 6e 73 74 61 6e 63 |pecifier|-instanc|
|00000790| 65 27 20 61 6e 64 20 61 | 70 70 6c 79 69 6e 67 20 |e' and a|pplying |
|000007a0| 60 66 6f 6e 74 2d 69 6e | 73 74 61 6e 63 65 2d 61 |`font-in|stance-a|
|000007b0| 73 63 65 6e 74 27 20 74 | 6f 0a 74 68 65 20 72 65 |scent' t|o.the re|
|000007c0| 73 75 6c 74 2e 20 20 53 | 65 65 20 60 6d 61 6b 65 |sult.  S|ee `make|
|000007d0| 2d 73 70 65 63 69 66 69 | 65 72 27 20 66 6f 72 20 |-specifi|er' for |
|000007e0| 6d 6f 72 65 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |more inf|ormation|
|000007f0| 20 61 62 6f 75 74 20 73 | 70 65 63 69 66 69 65 72 | about s|pecifier|
|00000800| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 66 |s...(def|alias 'f|
|00000810| 6f 6e 74 2d 61 73 63 65 | 6e 74 20 23 5b 28 66 6f |ont-asce|nt #[(fo|
|00000820| 6e 74 20 26 6f 70 74 69 | 6f 6e 61 6c 20 64 6f 6d |nt &opti|onal dom|
|00000830| 61 69 6e 20 63 68 61 72 | 73 65 74 29 20 22 c0 c1 |ain char|set) "..|
|00000840| 5c 6e 0b 0c 24 87 22 20 | 5b 77 73 2d 6f 62 6a 65 |\n..$." |[ws-obje|
|00000850| 63 74 2d 70 72 6f 70 65 | 72 74 79 2d 31 20 66 6f |ct-prope|rty-1 fo|
|00000860| 6e 74 2d 69 6e 73 74 61 | 6e 63 65 2d 61 73 63 65 |nt-insta|nce-asce|
|00000870| 6e 74 20 66 6f 6e 74 20 | 64 6f 6d 61 69 6e 20 63 |nt font |domain c|
|00000880| 68 61 72 73 65 74 5d 20 | 35 20 28 23 24 20 2e 20 |harset] |5 (#$ . |
|00000890| 31 37 30 37 29 5d 29 0a | 23 40 33 34 37 20 52 65 |1707)]).|#@347 Re|
|000008a0| 74 75 72 6e 20 74 68 65 | 20 64 65 73 63 65 6e 74 |turn the| descent|
|000008b0| 20 6f 66 20 74 68 65 20 | 46 4f 4e 54 20 69 6e 20 | of the |FONT in |
|000008c0| 74 68 65 20 73 70 65 63 | 69 66 69 65 64 20 44 4f |the spec|ified DO|
|000008d0| 4d 41 49 4e 2c 20 69 66 | 20 61 6e 79 2e 0a 46 4f |MAIN, if| any..FO|
|000008e0| 4e 54 20 73 68 6f 75 6c | 64 20 62 65 20 61 20 66 |NT shoul|d be a f|
|000008f0| 6f 6e 74 20 73 70 65 63 | 69 66 69 65 72 20 6f 62 |ont spec|ifier ob|
|00000900| 6a 65 63 74 20 61 6e 64 | 20 44 4f 4d 41 49 4e 20 |ject and| DOMAIN |
|00000910| 69 73 20 6e 6f 72 6d 61 | 6c 6c 79 20 61 20 77 69 |is norma|lly a wi|
|00000920| 6e 64 6f 77 0a 61 6e 64 | 20 64 65 66 61 75 6c 74 |ndow.and| default|
|00000930| 73 20 74 6f 20 74 68 65 | 20 73 65 6c 65 63 74 65 |s to the| selecte|
|00000940| 64 20 77 69 6e 64 6f 77 | 20 69 66 20 6f 6d 69 74 |d window| if omit|
|00000950| 74 65 64 2e 20 20 54 68 | 69 73 20 69 73 20 65 71 |ted.  Th|is is eq|
|00000960| 75 69 76 61 6c 65 6e 74 | 0a 74 6f 20 75 73 69 6e |uivalent|.to usin|
|00000970| 67 20 60 73 70 65 63 69 | 66 69 65 72 2d 69 6e 73 |g `speci|fier-ins|
|00000980| 74 61 6e 63 65 27 20 61 | 6e 64 20 61 70 70 6c 79 |tance' a|nd apply|
|00000990| 69 6e 67 20 60 66 6f 6e | 74 2d 69 6e 73 74 61 6e |ing `fon|t-instan|
|000009a0| 63 65 2d 64 65 73 63 65 | 6e 74 27 20 74 6f 0a 74 |ce-desce|nt' to.t|
|000009b0| 68 65 20 72 65 73 75 6c | 74 2e 20 20 53 65 65 20 |he resul|t.  See |
|000009c0| 60 6d 61 6b 65 2d 73 70 | 65 63 69 66 69 65 72 27 |`make-sp|ecifier'|
|000009d0| 20 66 6f 72 20 6d 6f 72 | 65 20 69 6e 66 6f 72 6d | for mor|e inform|
|000009e0| 61 74 69 6f 6e 20 61 62 | 6f 75 74 20 73 70 65 63 |ation ab|out spec|
|000009f0| 69 66 69 65 72 73 2e 1f | 0a 28 64 65 66 61 6c 69 |ifiers..|.(defali|
|00000a00| 61 73 20 27 66 6f 6e 74 | 2d 64 65 73 63 65 6e 74 |as 'font|-descent|
|00000a10| 20 23 5b 28 66 6f 6e 74 | 20 26 6f 70 74 69 6f 6e | #[(font| &option|
|00000a20| 61 6c 20 64 6f 6d 61 69 | 6e 20 63 68 61 72 73 65 |al domai|n charse|
|00000a30| 74 29 20 22 c0 c1 5c 6e | 0b 0c 24 87 22 20 5b 77 |t) "..\n|..$." [w|
|00000a40| 73 2d 6f 62 6a 65 63 74 | 2d 70 72 6f 70 65 72 74 |s-object|-propert|
|00000a50| 79 2d 31 20 66 6f 6e 74 | 2d 69 6e 73 74 61 6e 63 |y-1 font|-instanc|
|00000a60| 65 2d 64 65 73 63 65 6e | 74 20 66 6f 6e 74 20 64 |e-descen|t font d|
|00000a70| 6f 6d 61 69 6e 20 63 68 | 61 72 73 65 74 5d 20 35 |omain ch|arset] 5|
|00000a80| 20 28 23 24 20 2e 20 32 | 32 30 36 29 5d 29 0a 23 | (#$ . 2|206)]).#|
|00000a90| 40 33 34 33 20 52 65 74 | 75 72 6e 20 74 68 65 20 |@343 Ret|urn the |
|00000aa0| 77 69 64 74 68 20 6f 66 | 20 74 68 65 20 46 4f 4e |width of| the FON|
|00000ab0| 54 20 69 6e 20 74 68 65 | 20 73 70 65 63 69 66 69 |T in the| specifi|
|00000ac0| 65 64 20 44 4f 4d 41 49 | 4e 2c 20 69 66 20 61 6e |ed DOMAI|N, if an|
|00000ad0| 79 2e 0a 46 4f 4e 54 20 | 73 68 6f 75 6c 64 20 62 |y..FONT |should b|
|00000ae0| 65 20 61 20 66 6f 6e 74 | 20 73 70 65 63 69 66 69 |e a font| specifi|
|00000af0| 65 72 20 6f 62 6a 65 63 | 74 20 61 6e 64 20 44 4f |er objec|t and DO|
|00000b00| 4d 41 49 4e 20 69 73 20 | 6e 6f 72 6d 61 6c 6c 79 |MAIN is |normally|
|00000b10| 20 61 20 77 69 6e 64 6f | 77 0a 61 6e 64 20 64 65 | a windo|w.and de|
|00000b20| 66 61 75 6c 74 73 20 74 | 6f 20 74 68 65 20 73 65 |faults t|o the se|
|00000b30| 6c 65 63 74 65 64 20 77 | 69 6e 64 6f 77 20 69 66 |lected w|indow if|
|00000b40| 20 6f 6d 69 74 74 65 64 | 2e 20 20 54 68 69 73 20 | omitted|.  This |
|00000b50| 69 73 20 65 71 75 69 76 | 61 6c 65 6e 74 0a 74 6f |is equiv|alent.to|
|00000b60| 20 75 73 69 6e 67 20 60 | 73 70 65 63 69 66 69 65 | using `|specifie|
|00000b70| 72 2d 69 6e 73 74 61 6e | 63 65 27 20 61 6e 64 20 |r-instan|ce' and |
|00000b80| 61 70 70 6c 79 69 6e 67 | 20 60 66 6f 6e 74 2d 69 |applying| `font-i|
|00000b90| 6e 73 74 61 6e 63 65 2d | 77 69 64 74 68 27 20 74 |nstance-|width' t|
|00000ba0| 6f 0a 74 68 65 20 72 65 | 73 75 6c 74 2e 20 20 53 |o.the re|sult.  S|
|00000bb0| 65 65 20 60 6d 61 6b 65 | 2d 73 70 65 63 69 66 69 |ee `make|-specifi|
|00000bc0| 65 72 27 20 66 6f 72 20 | 6d 6f 72 65 20 69 6e 66 |er' for |more inf|
|00000bd0| 6f 72 6d 61 74 69 6f 6e | 20 61 62 6f 75 74 20 73 |ormation| about s|
|00000be0| 70 65 63 69 66 69 65 72 | 73 2e 1f 0a 28 64 65 66 |pecifier|s...(def|
|00000bf0| 61 6c 69 61 73 20 27 66 | 6f 6e 74 2d 77 69 64 74 |alias 'f|ont-widt|
|00000c00| 68 20 23 5b 28 66 6f 6e | 74 20 26 6f 70 74 69 6f |h #[(fon|t &optio|
|00000c10| 6e 61 6c 20 64 6f 6d 61 | 69 6e 20 63 68 61 72 73 |nal doma|in chars|
|00000c20| 65 74 29 20 22 c0 c1 5c | 6e 0b 0c 24 87 22 20 5b |et) "..\|n..$." [|
|00000c30| 77 73 2d 6f 62 6a 65 63 | 74 2d 70 72 6f 70 65 72 |ws-objec|t-proper|
|00000c40| 74 79 2d 31 20 66 6f 6e | 74 2d 69 6e 73 74 61 6e |ty-1 fon|t-instan|
|00000c50| 63 65 2d 77 69 64 74 68 | 20 66 6f 6e 74 20 64 6f |ce-width| font do|
|00000c60| 6d 61 69 6e 20 63 68 61 | 72 73 65 74 5d 20 35 20 |main cha|rset] 5 |
|00000c70| 28 23 24 20 2e 20 32 37 | 30 39 29 5d 29 0a 23 40 |(#$ . 27|09)]).#@|
|00000c80| 33 34 35 20 52 65 74 75 | 72 6e 20 74 68 65 20 68 |345 Retu|rn the h|
|00000c90| 65 69 67 68 74 20 6f 66 | 20 74 68 65 20 46 4f 4e |eight of| the FON|
|00000ca0| 54 20 69 6e 20 74 68 65 | 20 73 70 65 63 69 66 69 |T in the| specifi|
|00000cb0| 65 64 20 44 4f 4d 41 49 | 4e 2c 20 69 66 20 61 6e |ed DOMAI|N, if an|
|00000cc0| 79 2e 0a 46 4f 4e 54 20 | 73 68 6f 75 6c 64 20 62 |y..FONT |should b|
|00000cd0| 65 20 61 20 66 6f 6e 74 | 20 73 70 65 63 69 66 69 |e a font| specifi|
|00000ce0| 65 72 20 6f 62 6a 65 63 | 74 20 61 6e 64 20 44 4f |er objec|t and DO|
|00000cf0| 4d 41 49 4e 20 69 73 20 | 6e 6f 72 6d 61 6c 6c 79 |MAIN is |normally|
|00000d00| 20 61 20 77 69 6e 64 6f | 77 0a 61 6e 64 20 64 65 | a windo|w.and de|
|00000d10| 66 61 75 6c 74 73 20 74 | 6f 20 74 68 65 20 73 65 |faults t|o the se|
|00000d20| 6c 65 63 74 65 64 20 77 | 69 6e 64 6f 77 20 69 66 |lected w|indow if|
|00000d30| 20 6f 6d 69 74 74 65 64 | 2e 20 20 54 68 69 73 20 | omitted|.  This |
|00000d40| 69 73 20 65 71 75 69 76 | 61 6c 65 6e 74 0a 74 6f |is equiv|alent.to|
|00000d50| 20 75 73 69 6e 67 20 60 | 73 70 65 63 69 66 69 65 | using `|specifie|
|00000d60| 72 2d 69 6e 73 74 61 6e | 63 65 27 20 61 6e 64 20 |r-instan|ce' and |
|00000d70| 61 70 70 6c 79 69 6e 67 | 20 60 66 6f 6e 74 2d 69 |applying| `font-i|
|00000d80| 6e 73 74 61 6e 63 65 2d | 68 65 69 67 68 74 27 20 |nstance-|height' |
|00000d90| 74 6f 0a 74 68 65 20 72 | 65 73 75 6c 74 2e 20 20 |to.the r|esult.  |
|00000da0| 53 65 65 20 60 6d 61 6b | 65 2d 73 70 65 63 69 66 |See `mak|e-specif|
|00000db0| 69 65 72 27 20 66 6f 72 | 20 6d 6f 72 65 20 69 6e |ier' for| more in|
|00000dc0| 66 6f 72 6d 61 74 69 6f | 6e 20 61 62 6f 75 74 20 |formatio|n about |
|00000dd0| 73 70 65 63 69 66 69 65 | 72 73 2e 1f 0a 28 64 65 |specifie|rs...(de|
|00000de0| 66 61 6c 69 61 73 20 27 | 66 6f 6e 74 2d 68 65 69 |falias '|font-hei|
|00000df0| 67 68 74 20 23 5b 28 66 | 6f 6e 74 20 26 6f 70 74 |ght #[(f|ont &opt|
|00000e00| 69 6f 6e 61 6c 20 64 6f | 6d 61 69 6e 20 63 68 61 |ional do|main cha|
|00000e10| 72 73 65 74 29 20 22 c0 | c1 5c 6e 0b 0c 24 87 22 |rset) ".|.\n..$."|
|00000e20| 20 5b 77 73 2d 6f 62 6a | 65 63 74 2d 70 72 6f 70 | [ws-obj|ect-prop|
|00000e30| 65 72 74 79 2d 31 20 66 | 6f 6e 74 2d 69 6e 73 74 |erty-1 f|ont-inst|
|00000e40| 61 6e 63 65 2d 68 65 69 | 67 68 74 20 66 6f 6e 74 |ance-hei|ght font|
|00000e50| 20 64 6f 6d 61 69 6e 20 | 63 68 61 72 73 65 74 5d | domain |charset]|
|00000e60| 20 35 20 28 23 24 20 2e | 20 33 32 30 34 29 5d 29 | 5 (#$ .| 3204)])|
|00000e70| 0a 23 40 33 36 31 20 52 | 65 74 75 72 6e 20 77 68 |.#@361 R|eturn wh|
|00000e80| 65 74 68 65 72 20 46 4f | 4e 54 20 69 73 20 70 72 |ether FO|NT is pr|
|00000e90| 6f 70 6f 72 74 69 6f 6e | 61 6c 20 69 6e 20 74 68 |oportion|al in th|
|00000ea0| 65 20 73 70 65 63 69 66 | 69 65 64 20 44 4f 4d 41 |e specif|ied DOMA|
|00000eb0| 49 4e 2c 20 69 66 20 6b | 6e 6f 77 6e 2e 0a 46 4f |IN, if k|nown..FO|
|00000ec0| 4e 54 20 73 68 6f 75 6c | 64 20 62 65 20 61 20 66 |NT shoul|d be a f|
|00000ed0| 6f 6e 74 20 73 70 65 63 | 69 66 69 65 72 20 6f 62 |ont spec|ifier ob|
|00000ee0| 6a 65 63 74 20 61 6e 64 | 20 44 4f 4d 41 49 4e 20 |ject and| DOMAIN |
|00000ef0| 69 73 20 6e 6f 72 6d 61 | 6c 6c 79 20 61 20 77 69 |is norma|lly a wi|
|00000f00| 6e 64 6f 77 0a 61 6e 64 | 20 64 65 66 61 75 6c 74 |ndow.and| default|
|00000f10| 73 20 74 6f 20 74 68 65 | 20 73 65 6c 65 63 74 65 |s to the| selecte|
|00000f20| 64 20 77 69 6e 64 6f 77 | 20 69 66 20 6f 6d 69 74 |d window| if omit|
|00000f30| 74 65 64 2e 20 20 54 68 | 69 73 20 69 73 20 65 71 |ted.  Th|is is eq|
|00000f40| 75 69 76 61 6c 65 6e 74 | 0a 74 6f 20 75 73 69 6e |uivalent|.to usin|
|00000f50| 67 20 60 73 70 65 63 69 | 66 69 65 72 2d 69 6e 73 |g `speci|fier-ins|
|00000f60| 74 61 6e 63 65 27 20 61 | 6e 64 20 61 70 70 6c 79 |tance' a|nd apply|
|00000f70| 69 6e 67 20 60 66 6f 6e | 74 2d 69 6e 73 74 61 6e |ing `fon|t-instan|
|00000f80| 63 65 2d 70 72 6f 70 6f | 72 74 69 6f 6e 61 6c 2d |ce-propo|rtional-|
|00000f90| 70 27 20 74 6f 0a 74 68 | 65 20 72 65 73 75 6c 74 |p' to.th|e result|
|00000fa0| 2e 20 20 53 65 65 20 60 | 6d 61 6b 65 2d 73 70 65 |.  See `|make-spe|
|00000fb0| 63 69 66 69 65 72 27 20 | 66 6f 72 20 6d 6f 72 65 |cifier' |for more|
|00000fc0| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 61 62 6f | informa|tion abo|
|00000fd0| 75 74 20 73 70 65 63 69 | 66 69 65 72 73 2e 1f 0a |ut speci|fiers...|
|00000fe0| 28 64 65 66 61 6c 69 61 | 73 20 27 66 6f 6e 74 2d |(defalia|s 'font-|
|00000ff0| 70 72 6f 70 6f 72 74 69 | 6f 6e 61 6c 2d 70 20 23 |proporti|onal-p #|
|00001000| 5b 28 66 6f 6e 74 20 26 | 6f 70 74 69 6f 6e 61 6c |[(font &|optional|
|00001010| 20 64 6f 6d 61 69 6e 20 | 63 68 61 72 73 65 74 29 | domain |charset)|
|00001020| 20 22 c0 c1 5c 6e 0b 0c | 24 87 22 20 5b 77 73 2d | "..\n..|$." [ws-|
|00001030| 6f 62 6a 65 63 74 2d 70 | 72 6f 70 65 72 74 79 2d |object-p|roperty-|
|00001040| 31 20 66 6f 6e 74 2d 69 | 6e 73 74 61 6e 63 65 2d |1 font-i|nstance-|
|00001050| 70 72 6f 70 6f 72 74 69 | 6f 6e 61 6c 2d 70 20 66 |proporti|onal-p f|
|00001060| 6f 6e 74 20 64 6f 6d 61 | 69 6e 20 63 68 61 72 73 |ont doma|in chars|
|00001070| 65 74 5d 20 35 20 28 23 | 24 20 2e 20 33 37 30 33 |et] 5 (#|$ . 3703|
|00001080| 29 5d 29 0a 23 40 33 35 | 33 20 52 65 74 75 72 6e |)]).#@35|3 Return|
|00001090| 20 74 68 65 20 70 72 6f | 70 65 72 74 69 65 73 20 | the pro|perties |
|000010a0| 6f 66 20 74 68 65 20 46 | 4f 4e 54 20 69 6e 20 74 |of the F|ONT in t|
|000010b0| 68 65 20 73 70 65 63 69 | 66 69 65 64 20 44 4f 4d |he speci|fied DOM|
|000010c0| 41 49 4e 2c 20 69 66 20 | 61 6e 79 2e 0a 46 4f 4e |AIN, if |any..FON|
|000010d0| 54 20 73 68 6f 75 6c 64 | 20 62 65 20 61 20 66 6f |T should| be a fo|
|000010e0| 6e 74 20 73 70 65 63 69 | 66 69 65 72 20 6f 62 6a |nt speci|fier obj|
|000010f0| 65 63 74 20 61 6e 64 20 | 44 4f 4d 41 49 4e 20 69 |ect and |DOMAIN i|
|00001100| 73 20 6e 6f 72 6d 61 6c | 6c 79 20 61 20 77 69 6e |s normal|ly a win|
|00001110| 64 6f 77 0a 61 6e 64 20 | 64 65 66 61 75 6c 74 73 |dow.and |defaults|
|00001120| 20 74 6f 20 74 68 65 20 | 73 65 6c 65 63 74 65 64 | to the |selected|
|00001130| 20 77 69 6e 64 6f 77 20 | 69 66 20 6f 6d 69 74 74 | window |if omitt|
|00001140| 65 64 2e 20 20 54 68 69 | 73 20 69 73 20 65 71 75 |ed.  Thi|s is equ|
|00001150| 69 76 61 6c 65 6e 74 0a | 74 6f 20 75 73 69 6e 67 |ivalent.|to using|
|00001160| 20 60 73 70 65 63 69 66 | 69 65 72 2d 69 6e 73 74 | `specif|ier-inst|
|00001170| 61 6e 63 65 27 20 61 6e | 64 20 61 70 70 6c 79 69 |ance' an|d applyi|
|00001180| 6e 67 20 60 66 6f 6e 74 | 2d 69 6e 73 74 61 6e 63 |ng `font|-instanc|
|00001190| 65 2d 70 72 6f 70 65 72 | 74 69 65 73 27 0a 74 6f |e-proper|ties'.to|
|000011a0| 20 74 68 65 20 72 65 73 | 75 6c 74 2e 20 20 53 65 | the res|ult.  Se|
|000011b0| 65 20 60 6d 61 6b 65 2d | 73 70 65 63 69 66 69 65 |e `make-|specifie|
|000011c0| 72 27 20 66 6f 72 20 6d | 6f 72 65 20 69 6e 66 6f |r' for m|ore info|
|000011d0| 72 6d 61 74 69 6f 6e 20 | 61 62 6f 75 74 20 73 70 |rmation |about sp|
|000011e0| 65 63 69 66 69 65 72 73 | 2e 1f 0a 28 64 65 66 61 |ecifiers|...(defa|
|000011f0| 6c 69 61 73 20 27 66 6f | 6e 74 2d 70 72 6f 70 65 |lias 'fo|nt-prope|
|00001200| 72 74 69 65 73 20 23 5b | 28 66 6f 6e 74 20 26 6f |rties #[|(font &o|
|00001210| 70 74 69 6f 6e 61 6c 20 | 64 6f 6d 61 69 6e 20 63 |ptional |domain c|
|00001220| 68 61 72 73 65 74 29 20 | 22 c0 c1 5c 6e 0b 0c 24 |harset) |"..\n..$|
|00001230| 87 22 20 5b 77 73 2d 6f | 62 6a 65 63 74 2d 70 72 |." [ws-o|bject-pr|
|00001240| 6f 70 65 72 74 79 2d 31 | 20 66 6f 6e 74 2d 69 6e |operty-1| font-in|
|00001250| 73 74 61 6e 63 65 2d 70 | 72 6f 70 65 72 74 69 65 |stance-p|ropertie|
|00001260| 73 20 66 6f 6e 74 20 64 | 6f 6d 61 69 6e 20 63 68 |s font d|omain ch|
|00001270| 61 72 73 65 74 5d 20 35 | 20 28 23 24 20 2e 20 34 |arset] 5| (#$ . 4|
|00001280| 32 33 34 29 5d 29 0a 23 | 40 33 34 39 20 52 65 74 |234)]).#|@349 Ret|
|00001290| 75 72 6e 20 74 68 65 20 | 74 72 75 65 6e 61 6d 65 |urn the |truename|
|000012a0| 20 6f 66 20 74 68 65 20 | 46 4f 4e 54 20 69 6e 20 | of the |FONT in |
|000012b0| 74 68 65 20 73 70 65 63 | 69 66 69 65 64 20 44 4f |the spec|ified DO|
|000012c0| 4d 41 49 4e 2c 20 69 66 | 20 61 6e 79 2e 0a 46 4f |MAIN, if| any..FO|
|000012d0| 4e 54 20 73 68 6f 75 6c | 64 20 62 65 20 61 20 66 |NT shoul|d be a f|
|000012e0| 6f 6e 74 20 73 70 65 63 | 69 66 69 65 72 20 6f 62 |ont spec|ifier ob|
|000012f0| 6a 65 63 74 20 61 6e 64 | 20 44 4f 4d 41 49 4e 20 |ject and| DOMAIN |
|00001300| 69 73 20 6e 6f 72 6d 61 | 6c 6c 79 20 61 20 77 69 |is norma|lly a wi|
|00001310| 6e 64 6f 77 0a 61 6e 64 | 20 64 65 66 61 75 6c 74 |ndow.and| default|
|00001320| 73 20 74 6f 20 74 68 65 | 20 73 65 6c 65 63 74 65 |s to the| selecte|
|00001330| 64 20 77 69 6e 64 6f 77 | 20 69 66 20 6f 6d 69 74 |d window| if omit|
|00001340| 74 65 64 2e 20 20 54 68 | 69 73 20 69 73 20 65 71 |ted.  Th|is is eq|
|00001350| 75 69 76 61 6c 65 6e 74 | 0a 74 6f 20 75 73 69 6e |uivalent|.to usin|
|00001360| 67 20 60 73 70 65 63 69 | 66 69 65 72 2d 69 6e 73 |g `speci|fier-ins|
|00001370| 74 61 6e 63 65 27 20 61 | 6e 64 20 61 70 70 6c 79 |tance' a|nd apply|
|00001380| 69 6e 67 20 60 66 6f 6e | 74 2d 69 6e 73 74 61 6e |ing `fon|t-instan|
|00001390| 63 65 2d 74 72 75 65 6e | 61 6d 65 27 0a 74 6f 20 |ce-truen|ame'.to |
|000013a0| 74 68 65 20 72 65 73 75 | 6c 74 2e 20 20 53 65 65 |the resu|lt.  See|
|000013b0| 20 60 6d 61 6b 65 2d 73 | 70 65 63 69 66 69 65 72 | `make-s|pecifier|
|000013c0| 27 20 66 6f 72 20 6d 6f | 72 65 20 69 6e 66 6f 72 |' for mo|re infor|
|000013d0| 6d 61 74 69 6f 6e 20 61 | 62 6f 75 74 20 73 70 65 |mation a|bout spe|
|000013e0| 63 69 66 69 65 72 73 2e | 1f 0a 28 64 65 66 61 6c |cifiers.|..(defal|
|000013f0| 69 61 73 20 27 66 6f 6e | 74 2d 74 72 75 65 6e 61 |ias 'fon|t-truena|
|00001400| 6d 65 20 23 5b 28 66 6f | 6e 74 20 26 6f 70 74 69 |me #[(fo|nt &opti|
|00001410| 6f 6e 61 6c 20 64 6f 6d | 61 69 6e 20 63 68 61 72 |onal dom|ain char|
|00001420| 73 65 74 29 20 22 c0 c1 | 5c 6e 0b 0c 24 87 22 20 |set) "..|\n..$." |
|00001430| 5b 77 73 2d 6f 62 6a 65 | 63 74 2d 70 72 6f 70 65 |[ws-obje|ct-prope|
|00001440| 72 74 79 2d 31 20 66 6f | 6e 74 2d 69 6e 73 74 61 |rty-1 fo|nt-insta|
|00001450| 6e 63 65 2d 74 72 75 65 | 6e 61 6d 65 20 66 6f 6e |nce-true|name fon|
|00001460| 74 20 64 6f 6d 61 69 6e | 20 63 68 61 72 73 65 74 |t domain| charset|
|00001470| 5d 20 35 20 28 23 24 20 | 2e 20 34 37 34 39 29 5d |] 5 (#$ |. 4749)]|
|00001480| 29 0a 23 40 31 39 32 20 | 52 65 74 75 72 6e 20 74 |).#@192 |Return t|
|00001490| 68 65 20 68 65 69 67 68 | 74 20 69 6e 20 70 69 78 |he heigh|t in pix|
|000014a0| 65 6c 73 20 6f 66 20 46 | 4f 4e 54 2d 49 4e 53 54 |els of F|ONT-INST|
|000014b0| 41 4e 43 45 2e 0a 54 68 | 65 20 72 65 74 75 72 6e |ANCE..Th|e return|
|000014c0| 65 64 20 76 61 6c 75 65 | 20 69 73 20 74 68 65 20 |ed value| is the |
|000014d0| 6d 61 78 69 6d 75 6d 20 | 68 65 69 67 68 74 20 66 |maximum |height f|
|000014e0| 6f 72 20 61 6c 6c 20 63 | 68 61 72 61 63 74 65 72 |or all c|haracter|
|000014f0| 73 20 69 6e 20 74 68 65 | 20 66 6f 6e 74 2c 0a 61 |s in the| font,.a|
|00001500| 6e 64 20 69 73 20 65 71 | 75 69 76 61 6c 65 6e 74 |nd is eq|uivalent|
|00001510| 20 74 6f 20 74 68 65 20 | 73 75 6d 20 6f 66 20 74 | to the |sum of t|
|00001520| 68 65 20 66 6f 6e 74 20 | 69 6e 73 74 61 6e 63 65 |he font |instance|
|00001530| 27 73 20 61 73 63 65 6e | 74 20 61 6e 64 20 64 65 |'s ascen|t and de|
|00001540| 73 63 65 6e 74 2e 1f 0a | 28 64 65 66 61 6c 69 61 |scent...|(defalia|
|00001550| 73 20 27 66 6f 6e 74 2d | 69 6e 73 74 61 6e 63 65 |s 'font-|instance|
|00001560| 2d 68 65 69 67 68 74 20 | 23 5b 28 66 6f 6e 74 2d |-height |#[(font-|
|00001570| 69 6e 73 74 61 6e 63 65 | 29 20 22 c0 09 21 c2 09 |instance|) "..!..|
|00001580| 21 5c 5c 87 22 20 5b 66 | 6f 6e 74 2d 69 6e 73 74 |!\\." [f|ont-inst|
|00001590| 61 6e 63 65 2d 61 73 63 | 65 6e 74 20 66 6f 6e 74 |ance-asc|ent font|
|000015a0| 2d 69 6e 73 74 61 6e 63 | 65 20 66 6f 6e 74 2d 69 |-instanc|e font-i|
|000015b0| 6e 73 74 61 6e 63 65 2d | 64 65 73 63 65 6e 74 5d |nstance-|descent]|
|000015c0| 20 33 20 28 23 24 20 2e | 20 35 32 35 36 29 5d 29 | 3 (#$ .| 5256)])|
|000015d0| 0a 23 40 33 30 37 20 43 | 72 65 61 74 65 20 61 20 |.#@307 C|reate a |
|000015e0| 6e 65 77 20 60 63 6f 6c | 6f 72 27 20 73 70 65 63 |new `col|or' spec|
|000015f0| 69 66 69 65 72 20 6f 62 | 6a 65 63 74 20 77 69 74 |ifier ob|ject wit|
|00001600| 68 20 74 68 65 20 67 69 | 76 65 6e 20 73 70 65 63 |h the gi|ven spec|
|00001610| 69 66 69 63 61 74 69 6f | 6e 20 6c 69 73 74 2e 0a |ificatio|n list..|
|00001620| 53 50 45 43 2d 4c 49 53 | 54 20 63 61 6e 20 62 65 |SPEC-LIS|T can be|
|00001630| 20 61 20 6c 69 73 74 20 | 6f 66 20 73 70 65 63 69 | a list |of speci|
|00001640| 66 69 63 61 74 69 6f 6e | 73 20 28 65 61 63 68 20 |fication|s (each |
|00001650| 6f 66 20 77 68 69 63 68 | 20 69 73 20 61 20 63 6f |of which| is a co|
|00001660| 6e 73 20 6f 66 20 61 0a | 6c 6f 63 61 6c 65 20 61 |ns of a.|locale a|
|00001670| 6e 64 20 61 20 6c 69 73 | 74 20 6f 66 20 69 6e 73 |nd a lis|t of ins|
|00001680| 74 61 6e 74 69 61 74 6f | 72 73 29 2c 20 61 20 73 |tantiato|rs), a s|
|00001690| 69 6e 67 6c 65 20 69 6e | 73 74 61 6e 74 69 61 74 |ingle in|stantiat|
|000016a0| 6f 72 2c 20 6f 72 20 61 | 20 6c 69 73 74 0a 6f 66 |or, or a| list.of|
|000016b0| 20 69 6e 73 74 61 6e 74 | 69 61 74 6f 72 73 2e 20 | instant|iators. |
|000016c0| 20 53 65 65 20 60 6d 61 | 6b 65 2d 73 70 65 63 69 | See `ma|ke-speci|
|000016d0| 66 69 65 72 27 20 66 6f | 72 20 61 20 64 65 74 61 |fier' fo|r a deta|
|000016e0| 69 6c 65 64 20 64 65 73 | 63 72 69 70 74 69 6f 6e |iled des|cription|
|000016f0| 20 6f 66 0a 68 6f 77 20 | 73 70 65 63 69 66 69 65 | of.how |specifie|
|00001700| 72 73 20 77 6f 72 6b 2e | 1f 0a 28 64 65 66 61 6c |rs work.|..(defal|
|00001710| 69 61 73 20 27 6d 61 6b | 65 2d 63 6f 6c 6f 72 2d |ias 'mak|e-color-|
|00001720| 73 70 65 63 69 66 69 65 | 72 20 23 5b 28 73 70 65 |specifie|r #[(spe|
|00001730| 63 2d 6c 69 73 74 29 20 | 22 c0 c1 5c 6e 5c 22 87 |c-list) |"..\n\".|
|00001740| 22 20 5b 6d 61 6b 65 2d | 73 70 65 63 69 66 69 65 |" [make-|specifie|
|00001750| 72 2d 61 6e 64 2d 69 6e | 69 74 20 63 6f 6c 6f 72 |r-and-in|it color|
|00001760| 20 73 70 65 63 2d 6c 69 | 73 74 5d 20 33 20 28 23 | spec-li|st] 3 (#|
|00001770| 24 20 2e 20 35 35 39 31 | 29 5d 29 0a 23 40 33 34 |$ . 5591|)]).#@34|
|00001780| 35 20 52 65 74 75 72 6e | 20 74 68 65 20 6e 61 6d |5 Return| the nam|
|00001790| 65 20 6f 66 20 74 68 65 | 20 43 4f 4c 4f 52 20 69 |e of the| COLOR i|
|000017a0| 6e 20 74 68 65 20 73 70 | 65 63 69 66 69 65 64 20 |n the sp|ecified |
|000017b0| 44 4f 4d 41 49 4e 2c 20 | 69 66 20 61 6e 79 2e 0a |DOMAIN, |if any..|
|000017c0| 43 4f 4c 4f 52 20 73 68 | 6f 75 6c 64 20 62 65 20 |COLOR sh|ould be |
|000017d0| 61 20 63 6f 6c 6f 72 20 | 73 70 65 63 69 66 69 65 |a color |specifie|
|000017e0| 72 20 6f 62 6a 65 63 74 | 20 61 6e 64 20 44 4f 4d |r object| and DOM|
|000017f0| 41 49 4e 20 69 73 20 6e | 6f 72 6d 61 6c 6c 79 20 |AIN is n|ormally |
|00001800| 61 20 77 69 6e 64 6f 77 | 0a 61 6e 64 20 64 65 66 |a window|.and def|
|00001810| 61 75 6c 74 73 20 74 6f | 20 74 68 65 20 73 65 6c |aults to| the sel|
|00001820| 65 63 74 65 64 20 77 69 | 6e 64 6f 77 20 69 66 20 |ected wi|ndow if |
|00001830| 6f 6d 69 74 74 65 64 2e | 20 20 54 68 69 73 20 69 |omitted.|  This i|
|00001840| 73 20 65 71 75 69 76 61 | 6c 65 6e 74 0a 74 6f 20 |s equiva|lent.to |
|00001850| 75 73 69 6e 67 20 60 73 | 70 65 63 69 66 69 65 72 |using `s|pecifier|
|00001860| 2d 69 6e 73 74 61 6e 63 | 65 27 20 61 6e 64 20 61 |-instanc|e' and a|
|00001870| 70 70 6c 79 69 6e 67 20 | 60 63 6f 6c 6f 72 2d 69 |pplying |`color-i|
|00001880| 6e 73 74 61 6e 63 65 2d | 6e 61 6d 65 27 20 74 6f |nstance-|name' to|
|00001890| 0a 74 68 65 20 72 65 73 | 75 6c 74 2e 20 20 53 65 |.the res|ult.  Se|
|000018a0| 65 20 60 6d 61 6b 65 2d | 73 70 65 63 69 66 69 65 |e `make-|specifie|
|000018b0| 72 27 20 66 6f 72 20 6d | 6f 72 65 20 69 6e 66 6f |r' for m|ore info|
|000018c0| 72 6d 61 74 69 6f 6e 20 | 61 62 6f 75 74 20 73 70 |rmation |about sp|
|000018d0| 65 63 69 66 69 65 72 73 | 2e 1f 0a 28 64 65 66 61 |ecifiers|...(defa|
|000018e0| 6c 69 61 73 20 27 63 6f | 6c 6f 72 2d 6e 61 6d 65 |lias 'co|lor-name|
|000018f0| 20 23 5b 28 63 6f 6c 6f | 72 20 26 6f 70 74 69 6f | #[(colo|r &optio|
|00001900| 6e 61 6c 20 64 6f 6d 61 | 69 6e 29 20 22 c0 c1 5c |nal doma|in) "..\|
|00001910| 6e 0b 23 87 22 20 5b 77 | 73 2d 6f 62 6a 65 63 74 |n.#." [w|s-object|
|00001920| 2d 70 72 6f 70 65 72 74 | 79 2d 31 20 63 6f 6c 6f |-propert|y-1 colo|
|00001930| 72 2d 69 6e 73 74 61 6e | 63 65 2d 6e 61 6d 65 20 |r-instan|ce-name |
|00001940| 63 6f 6c 6f 72 20 64 6f | 6d 61 69 6e 5d 20 34 20 |color do|main] 4 |
|00001950| 28 23 24 20 2e 20 36 30 | 31 38 29 5d 29 0a 23 40 |(#$ . 60|18)]).#@|
|00001960| 33 36 35 20 52 65 74 75 | 72 6e 20 74 68 65 20 52 |365 Retu|rn the R|
|00001970| 47 42 20 63 6f 6d 70 6f | 6e 65 6e 74 73 20 6f 66 |GB compo|nents of|
|00001980| 20 74 68 65 20 43 4f 4c | 4f 52 20 69 6e 20 74 68 | the COL|OR in th|
|00001990| 65 20 73 70 65 63 69 66 | 69 65 64 20 44 4f 4d 41 |e specif|ied DOMA|
|000019a0| 49 4e 2c 20 69 66 20 61 | 6e 79 2e 0a 43 4f 4c 4f |IN, if a|ny..COLO|
|000019b0| 52 20 73 68 6f 75 6c 64 | 20 62 65 20 61 20 63 6f |R should| be a co|
|000019c0| 6c 6f 72 20 73 70 65 63 | 69 66 69 65 72 20 6f 62 |lor spec|ifier ob|
|000019d0| 6a 65 63 74 20 61 6e 64 | 20 44 4f 4d 41 49 4e 20 |ject and| DOMAIN |
|000019e0| 69 73 20 6e 6f 72 6d 61 | 6c 6c 79 20 61 20 77 69 |is norma|lly a wi|
|000019f0| 6e 64 6f 77 0a 61 6e 64 | 20 64 65 66 61 75 6c 74 |ndow.and| default|
|00001a00| 73 20 74 6f 20 74 68 65 | 20 73 65 6c 65 63 74 65 |s to the| selecte|
|00001a10| 64 20 77 69 6e 64 6f 77 | 20 69 66 20 6f 6d 69 74 |d window| if omit|
|00001a20| 74 65 64 2e 20 20 54 68 | 69 73 20 69 73 20 65 71 |ted.  Th|is is eq|
|00001a30| 75 69 76 61 6c 65 6e 74 | 0a 74 6f 20 75 73 69 6e |uivalent|.to usin|
|00001a40| 67 20 60 73 70 65 63 69 | 66 69 65 72 2d 69 6e 73 |g `speci|fier-ins|
|00001a50| 74 61 6e 63 65 27 20 61 | 6e 64 20 61 70 70 6c 79 |tance' a|nd apply|
|00001a60| 69 6e 67 20 60 63 6f 6c | 6f 72 2d 69 6e 73 74 61 |ing `col|or-insta|
|00001a70| 6e 63 65 2d 72 67 62 2d | 63 6f 6d 70 6f 6e 65 6e |nce-rgb-|componen|
|00001a80| 74 73 27 0a 74 6f 20 74 | 68 65 20 72 65 73 75 6c |ts'.to t|he resul|
|00001a90| 74 2e 20 20 53 65 65 20 | 60 6d 61 6b 65 2d 73 70 |t.  See |`make-sp|
|00001aa0| 65 63 69 66 69 65 72 27 | 20 66 6f 72 20 6d 6f 72 |ecifier'| for mor|
|00001ab0| 65 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 61 62 |e inform|ation ab|
|00001ac0| 6f 75 74 20 73 70 65 63 | 69 66 69 65 72 73 2e 1f |out spec|ifiers..|
|00001ad0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 6f 6c 6f |.(defali|as 'colo|
|00001ae0| 72 2d 72 67 62 2d 63 6f | 6d 70 6f 6e 65 6e 74 73 |r-rgb-co|mponents|
|00001af0| 20 23 5b 28 63 6f 6c 6f | 72 20 26 6f 70 74 69 6f | #[(colo|r &optio|
|00001b00| 6e 61 6c 20 64 6f 6d 61 | 69 6e 29 20 22 c0 c1 5c |nal doma|in) "..\|
|00001b10| 6e 0b 23 87 22 20 5b 77 | 73 2d 6f 62 6a 65 63 74 |n.#." [w|s-object|
|00001b20| 2d 70 72 6f 70 65 72 74 | 79 2d 31 20 63 6f 6c 6f |-propert|y-1 colo|
|00001b30| 72 2d 69 6e 73 74 61 6e | 63 65 2d 72 67 62 2d 63 |r-instan|ce-rgb-c|
|00001b40| 6f 6d 70 6f 6e 65 6e 74 | 73 20 63 6f 6c 6f 72 20 |omponent|s color |
|00001b50| 64 6f 6d 61 69 6e 5d 20 | 34 20 28 23 24 20 2e 20 |domain] |4 (#$ . |
|00001b60| 36 35 30 30 29 5d 29 0a |                         |6500)]).|        |
+--------+-------------------------+-------------------------+--------+--------+